#lang rosetta-racket


(provide 3-coord-surface
         4-coord-surface)

(define (3-coord-surface)
  (lift
   (thunk "Surface from 3 coordinates")
   (surface (xyz 1 2 3) (xyz -4 -5 6) (xyz 7 8 9))))

(define (4-coord-surface)
  (lift
   (thunk "Surface from 4 coordinates")
   (surface (xyz 1 2 3) (xyz 4 5 6) (xyz 7 -8 9) (xyz 5 - 3 1))))